home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 255 / SOMC Family Forum 255.iso / Main16.exe / Main16.dxr / 00124_startHS.ls < prev    next >
Encoding:
Text File  |  1998-09-14  |  1.4 KB  |  41 lines
  1. on mouseEnter
  2.   if not count(the windowList) then
  3.     doRollover(50)
  4.   end if
  5. end
  6.  
  7. on mouseLeave
  8.   if not count(the windowList) then
  9.     doRollout(50)
  10.   end if
  11. end
  12.  
  13. on mouseUp
  14.   global CORRECTANSWERS, correct, ncount, TRIES, right
  15.   glowClear()
  16.   doClick()
  17.   cursor(0)
  18.   set TRIES to 0
  19.   set right to 0
  20.   set ncount to 1
  21.   glow(20, 0)
  22.   set CORRECTANSWERS to ["A", "C", "A", "B", "D", "B", "A", "D", "C", "B", "A", "B", "D", "A", "C", "B", "D", "A", "B", "C"]
  23.   set correct to charToNum(getAt(CORRECTANSWERS, ncount)) - 50
  24.   put line ((ncount - 1) * 6) + 1 of the text of member "ww2" into field "Question"
  25.   set the textSize of member "Question" to 18
  26.   set the textStyle of member "Question" to "bold"
  27.   put line ((ncount - 1) * 6) + 2 of the text of member "ww2" into field "answer A"
  28.   set the textSize of member "answer A" to 18
  29.   set the textStyle of member "answer A" to "bold"
  30.   put line ((ncount - 1) * 6) + 3 of the text of member "ww2" into field "answer B"
  31.   set the textSize of member "answer B" to 18
  32.   set the textStyle of member "answer B" to "bold"
  33.   put line ((ncount - 1) * 6) + 4 of the text of member "ww2" into field "answer C"
  34.   set the textSize of member "answer C" to 18
  35.   set the textStyle of member "answer C" to "bold"
  36.   put line ((ncount - 1) * 6) + 5 of the text of member "ww2" into field "answer D"
  37.   set the textSize of member "answer D" to 18
  38.   set the textStyle of member "answer D" to "bold"
  39.   go(the frame + 1)
  40. end
  41.